home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 April / EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso / EARCD / comm / ums / IntuiNews1_4a.lha / UMS / Rexx / ROT13Decrypt.intui < prev    next >
Text File  |  1995-08-24  |  1KB  |  42 lines
  1. /* ------------------------------------------------------------------------
  2.   :Program.       ROT13Decrypt.intui
  3.   :Contents.      decrypts ROT13 message and shows it in IntuiNews's window
  4.   :Author.        Martin Koyro [mk]
  5.   :Address.       Snail Mail:              EMail:
  6.   :Address.       Salzmannstr. 12          Martin Koyro @ MS3
  7.   :Address.       48147 Münster            mk@bones.westfalen.de
  8.   :History.       v1.0 [mk] 23-Mar-95
  9.   :Copyright.
  10.   :Language.      ARexx
  11.   :Translator.    RexxMast
  12.   :Usage.         ROT13Decrypt.intui
  13. ------------------------------------------------------------------------ */
  14.  
  15. /* Exit if Message Window is not active. */
  16.  
  17. OPTIONS RESULTS
  18.  
  19. STATUS
  20. say RESULT
  21. IF RESULT~="MESSAGE" THEN EXIT 5
  22.  
  23.  
  24. /* We get IntuiNews's message number, ... */
  25.  
  26. GETMSGNUM
  27. MsgNum=RESULT
  28.  
  29. /* ... save the message, ... */
  30.  
  31. 'SAVEMSGBODY' MsgNum 'TO T:rot13.tmp'
  32.  
  33. /* ... call rot13, ... */
  34.  
  35. EXEC 'rot13 T:rot13.tmp >NIL:'
  36.  
  37. /* ... and show the decrypted message. */
  38.  
  39. 'REPLACEMSGBODY WITH T:rot13.tmp'
  40.  
  41. EXEC 'C:Delete T:rot13.tmp QUIET'
  42.